10 REM DIRECTORY SCRUNCH AND SORT
20 :
30 :
40 REM BL(X)=DIRECTORY SECTOR SEQUENCE
50 REM EN$(X)=DIRECTORY ENTRIES
60 REM P(X)=POINTER
70 DIM BL(18),EN$(144),P(144),PC$(5)
80 A$="":REM RESERVE SPACE EARLY
90 :
100 :
110 REM PRINTER CODES - CUSTOMIZE
120 PC$(1)=CHR$(27)+CHR$(64):                      REM INITIALIZE PRINTER
130 PC$(2)=CHR$(27)+CHR$(77)+CHR$(13):             REM SET LEFT MARGIN AT 13
140 PC$(3)=CHR$(14):REM ONE LINE                   EXPANDED PRINT FOR TITLE
150 CR$=CHR$(13):                               REM CARRIAGE RETURN
160 FF$=CHR$(12):                               REM FORM FEED
170 :
180 REM SECONDARY ADDRESSES "OPEN4,4,X"
190 SG=5:REM GRAPHICS OR TRANSPARENT
200 SU=0:REM UPPER CASE ONLY
210 SL=7:REM UPPER AND LOWER CASES
220 :
230 :
240 POKE53280,12:POKE53281,15:PRINT"[147][151]"
250 SP$=CHR$(32):DN$="NONE":ID$=""
260 SS$="           ":SC=0
270 FORI=49408TO49423:READA:POKEI,A:NEXTI
280 SH$=""
290 FORI=1TO18:READBL(I):SH$=SH$+CHR$(160):NEXTI
300 NL$=""
310 FORI=1TO30:NL$=NL$+CHR$(0):NEXT
320 FORI=1TO5:READTP$(I):NEXTI
330 :
340 :
350 REM MAIN MENU
360 :
370 GOSUB4550
380 PRINTTAB(15)"MAIN MENU"
390 PRINT" [164]     [164]":PRINT" I[146]NPUT/O[146]UTPUT"
400 PRINT" [164]    [164]":PRINT" V[146]IEW/P[146]RINT"
410 PRINT" [164]":PRINT" E[146]DIT DIRECTORY"
420 PRINT" [164]":PRINT" H[146]EADER/ID EDIT"
430 PRINT" [164]":PRINT" Q[146]UIT"
440 GETB$:IFB$=""THEN440
450 IFB$="I"ORB$="O"THEN550
460 IFB$="V"ORB$="P"THEN670
470 IFB$="E"THEN810
480 IFB$="H"THEN4280
490 IFB$="Q"THENEND
500 GOTO440
510 :
520 :
530 REM DIRECTORY LOAD OR OUTPUT MENU
540 :
550 GOSUB4550
560 PRINTTAB(7)" DIRECTORY LOAD OR OUTPUT"
570 PRINT" [164]":PRINT" R[146]EAD IN NEW DIRECTORY"
580 PRINT" [164]":PRINT" W[146]RITE OUT DIRECTORY TO DISK"
590 GETB$:IFB$=""THEN590
600 IFB$="R"THEN1050
610 IFB$="W"THEN2250
620 GOTO590
630 :
640 :
650 REM VIEW OR PRINT MENU
660 :
670 GOSUB4550
680 PRINTTAB(8)"VIEW OR PRINT DIRECTORY"
690 PRINT" [164]":PRINT" V[146]IEW DIRECTORY"
700 PRINT" [164]":PRINT" P[146]RINT DIRECTORY"
710 PRINT" [164]":PRINT" R[146]ETURN TO MAIN MENU"
720 GETB$:IFB$=""THEN720
730 IFB$="V"THENGOSUB5080:GOTO670
740 IFB$="P"THEN3420
750 IFB$="R"THEN370
760 GOTO720
770 :
780 :
790 REM EDIT DIRECTORY MENU
800 :
810 GOSUB4550
820 PRINTTAB(13)"EDIT DIRECTORY"
830 PRINT" [164]":PRINT" E[146]RASE SCRATCHED ENTRIES"
840 PRINT" [164]":PRINT" S[146]ORT DIRECTORY"
850 PRINT" [164]":PRINT" M[146]OVE SELECTED ENTRIES"
860 PRINT" [164]":PRINT" A[146]DD DUMMY ENTRY
870 [153]" TO":[153]" CWAITHANGE ENTRY NAME"
880 [153]" TO":[153]" DWAITELETE ENTRY"
890 [153]" TO":[153]" VWAITIEW DIRECTORY"
900 [153]" TO":[153]" RWAITETURN TO MAIN MENU"
910 [161]B$:[139]B$[178]""[167]910
920 [139]B$[178]"E"[167]1640
930 [139]B$[178]"S"[167]1750
940 [139]B$[178]"M"[167]1950
950 [139]B$[178]"A"[167]4050
960 [139]B$[178]"C"[167]4610
970 [139]B$[178]"D"[167]4860
980 [139]B$[178]"V"[167][141]5080:[137]810
990 [139]B$[178]"R"[167]370
1000 [137]910
1010 :
1020 :
1030 [143] READ IN DIRECTORY
1040 :
1050 [153]"LOAD"[163]9)"READ IN NEW DIRECTORY"
1060 [129]I[178]1[164]144:P(I)[178]I:[130]I
1070 [153][163]20)"TOTOTOTOTOTO"
1080 [153]" INSERT DISK, PRESS RETURNWAIT"
1090 [161]B$:[139]B$[179][177][199](13)[167]1090
1100 [153]" READING DIRECTORY HEADER"
1110 [159]15,8,15
1120 [152]15,"I0"
1130 [132]15,AN$,AM$,AT$,AS$
1140 [139]AN$[179][177]"00"[137]2840
1150 [159]2,8,2,"#"
1160 [132]15,AN$,AM$,AT$,AS$
1170 [139]AN$[179][177]"00"[137]2830
1180 AI[178]256[172][194](46)[170][194](45):[143] A$ INDEX
1190 [151]254,0:[151]255,192:[143] DIR.BLK. TO BE AT 49152
1200 [152]15,"U1";2;0;18;0
1210 [158]49408
1220 [151]AI[170]2,18
1230 AJ[178]49152[170]144
1240 [141]1560
1250 DN$[178]A$
1260 [151]AI[170]2,2
1270 AJ[178]49152[170]162:[141]1560
1280 ID$[178]A$
1290 BF[178]0:[151]AI[170]2,141:AJ[178]49153:[141]1560
1300 [129]I[178]4[164]140[169]4
1310 [139]I[178]72[167]1340
1320 B$[178][202](A$,I,1)
1330 BF[178]BF[170][198](B$)
1340 [130]I
1350 [153]" DISKNAME: "DN$"  ID: "ID$
1360 [153]" "BF" BLOCKS FREE"
1370 [153]" READING DIRECTORY BLOCKON"
1380 I[178]0:[151]AI[170]2,30:[143] LEN(A$)=30
1390 [152]15,"U1";2;0;18;BL(I[173]8[170]1)
1400 [153][163]24)I[173]8[170]1"ON"
1410 [158]49408:[143] READ IN DIR.BLK.
1420 TR[178][194](49152):BL[178][194](49153)
1430 [129]J[178]0[164]7:[143] SET A$=DIR.ENTRY 0-7
1440 AJ[178]49154[170]J[172]32
1450 [141]1560
1460 EN$(I[170]J[170]1)[178]A$
1470 [130]J
1480 [139]BL(I[173]8[170]1)[179][177]18[175]TR[179][177]0[167]I[178]I[170]8:[137]1390
1490 [160]2
1500 [132]15,AN$,AM$,AT$,AS$
1510 [160]15
1520 NF[178]I[170]8
1530 FT[178][198]([200](EN$(NF),1))
1540 [139]FT[178]0[167]NF[178]NF[171]1:[139]NF[179][177]0[167]1530:[143] UNCOUNT EMPTY ENTRIES
1550 [137]370
1560 HB[178][181](AJ[173]256)
1570 [151]AI[170]3,AJ[171]HB[172]256
1580 [151]AI[170]4,HB
1590 [142]
1600 :
1610 :
1620 [143] ERASE SCRATCHED ENTRIES
1630 :
1640 [153]"LOAD ERASING ENTRIES FOR SCRATCHED FILES"
1650 I[178]1
1660 FT[178][198]([200](EN$(P(I)),1))
1670 [139]FT[178]0[167][129]IA[178]I[164]NF[171]1:P(IA)[178]P(IA[170]1):[130]IA:NF[178]NF[171]1:[137]1690
1680 I[178]I[170]1
1690 [139]I[179][178]NF[167]1660
1700 [137]810
1710 :
1720 :
1730 [143] SORT ENTRIES
1740 :
1750 [153]"LOAD SORTING ENTRIES"
1760 [153]" PLACING ENTRY 1ON"
1770 I[178]1
1780 [139]I[177][178]NF[167]810
1790 J[178]4
1800 [139]J[177]16[167]I[178]I[170]1:[137]1780
1810 A[178][198]([202](EN$(P(I)),J,1)):[139]A[178]160[176]A[178]32[167]A[178]0
1820 B[178][198]([202](EN$(P(I[170]1)),J,1)):[139]B[178]160[176]B[178]32[167]B[178]0
1830 [139]A[179]B[167]I[178]I[170]1:[153][163]14)I"CMD  ON":[137]1780
1840 [139]A[178]B[167]J[178]J[170]1:[137]1800
1850 K[178]P(I)
1860 P(I)[178]P(I[170]1)
1870 P(I[170]1)[178]K
1880 I[178]I[171]1
1890 [139]I[179]1[167]I[178]1
1900 [137]1780
1910 :
1920 :
1930 [143] MOVE DIRECTORY ENTRIES
1940 :
1950 I[178]0
1960 [141]2910
1970 [153]"MOVES? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
1980 [161]B$:[139]B$[178]""[167]1980
1990 [139]B$[178]"Y"[167]2070
2000 [139]B$[179][177]"N"[167]1980
2010 [139]I[170]20[177][178]NF[167]810
2020 I[178]I[170]15:[137]1960
2030 :
2040 :
2050 [143] EXPLICIT MOVES
2060 :
2070 [153]"    FROM? ";
2080 ER[178]1
2090 [141]3260:[139]ER[179][177]1[167]1960
2100 F[178]T[170]I
2110 [153]"    TO? ";
2120 [141]3260:[139]ER[179][177]1[167]1960
2130 T[178]T[170]I
2140 [139]F[178]T[167]1960
2150 K[178]P(F)
2160 DI[178]1:[139]T[179]F[167]DI[178][171]1
2170 [129]IA[178]F[170]DI[164]T[169]DI
2180 P(IA[171]DI)[178]P(IA)
2190 [130]IA
2200 P(T)[178]K:[137]1960
2210 :
2220 :
2230 [143] WRITE OUT DIRECTORY
2240 :
2250 [153]"LOAD WRITING NEW DIRECTORY"
2260 [153]" WRITING HEADER BLOCK"
2270 [159]15,8,15
2280 [152]15,"I0"
2290 [132]15,AN$,AM$,AT$,AS$
2300 [139]AN$[179][177]"00"[137]2840
2310 [159]2,8,2,"#"
2320 [132]15,AN$,AM$,AT$,AS$
2330 [139]AN$[179][177]"00"[137]2830
2340 [152]15,"U1";2;0;18;0
2350 [152]15,"B-P";2;144
2360 [152]2,DN$;ID$;
2370 [152]15,"U2";2;0;18;0
2380 [132]15,AN$,AM$,AT$,AS$
2390 [139]AN$[179][177]"00"[137]2830
2400 [160]2:[152]15,"I0"
2410 [159]2,8,2,"#":[132]15,AN$,AM$,AT$,AS$:[139]AN$[179][177]"00"[167]2830
2420 [153]" WRITING DIRECTORY BLOCK ON"
2430 I[178]0
2440 TR$[178][199](0):BL$[178][199](255)
2450 [139]NF[177]I[170]8[167]TR$[178][199](18):BL$[178][199](BL(I[173]8[170]2))
2460 [153][163]24)I[173]8[170]1"ON"
2470 [152]15,"B-P";2;0
2480 [152]2,TR$;
2490 [152]2,BL$;
2500 [129]J[178]1[164]8
2510 [139]I[170]J[177]NF[167][152]2,NL$;:[137]2530
2520 [152]2,EN$(P(I[170]J));
2530 [139]J[179]8[167][152]2,[199](0);[199](0);
2540 [130]J
2550 [152]15,"U2";2;0;18;BL(I[173]8[170]1)
2560 [132]15,AN$,AM$,AT$,AS$
2570 [139]AN$[179][177]"00"[137]2830
2580 I[178]I[170]8
2590 [139](NF[173]I)[177]1[167]2440:[143] MORE ENTRIES TO WRITE OUT
2600 :
2610 :
2620 [143] ALL DONE, UPDATE BAM
2630 :
2640 [153]" UPDATING BAM"
2650 [139]SC[178]1[167][152]15,"V0":SC[178]0:[137]2760:[143] FILE SCRATCHED, FULL UPDATE
2660 [129]TR[178]0[164]18
2670 [152]15,"B-F";0;18;TR
2680 [130]TR
2690 I[178]NF[173]8
2700 [139](I[171][181](I))[177]0[167]I[178]I[170]1
2710 I[178][181](I)
2720 [129]TR[178]1[164]I
2730 [152]15,"B-A";0;18;BL(TR)
2740 [130]TR
2750 [152]15,"B-A";0;18;0
2760 [160]2
2770 [160]15
2780 [137]370
2790 :
2800 :
2810 [143] ERROR HANDLER
2820 :
2830 [160]2
2840 [160]15
2850 [153]"LOAD TERMINATED DUE TO DISK ACCESS ERROR"
2860 [153]" "AN$,AM$:[128]
2870 :
2880 :
2890 [143] SCREEN PRINT PARTIAL DIRECTORY LIST
2900 :
2910 [153]"LOAD #   NAME"[163]23)"SIZE  TYPE"
2920 [129]IA[178]1[164]20
2930 [139]IA[170]I[177]NF[167]2990
2940 [153]IA[163]5)[202](EN$(P(IA[170]I)),4,16);
2950 [153][163]23)256[172][198]([202](EN$(P(IA[170]I)),30,1))[170][198]([202](EN$(P(IA[170]I)),29,1));
2960 TP[178][198]([200](EN$(P(IA[170]I)),1))
2970 [141]3120
2980 [153][163]29)TP$
2990 [130]IA
3000 [139]I[178]0[167]3040
3010 [153]"";
3020 [129]IA[178]1[164]5:[153][163]33)"(null)WAIT":[130]IA
3030 [153]"ONONON"[163]35)"FROM":[153][163]35)"PREV.ON":[153][163]35)"ONLIST"
3040 [139]I[170]20[177][178]NF[167][142]
3050 [153]"";
3060 [129]IA[178]1[164]5:[153][163]33)"STEP":[130]IA
3070 [153]"ONONONONON"[163]35)"ON":[153][163]35)"NEXT":[153][163]35)"LIST"
3080 [142]
3090 :
3100 [143] FIND FILE TYPE
3110 :
3120 TP$[178]"":TR$[178]" "
3130 [139]TP[178]130[167]TP$[178]"PRG ":[142]
3140 [139]TP[178]0[167]TP$[178]"SCR ":[142]
3150 [139]TP[177]191[167]TP[178]TP[171]191:TR$[178]"<":[137]3200
3160 [139]TP[177]159[167]TP[178]TP[171]159:[137]3200
3170 [139]TP[177]127[167]TP[178]TP[171]127:[137]3200
3180 [139]TP[177]4[175]TP[179]128[167]TP$[178]"????":[142]
3190 [139]TP[179]5[167]TP[178]TP[170]1:TP$[178]"*":[137]3200
3200 [139]TP[177]5[167]TP$[178]"????":[142]
3210 TP$[178][200](TP$[170]TP$(TP)[170]TR$,4):[142]
3220 :
3230 :
3240 [143] INPUT AND CHECK MOVE INSTRUCTIONS
3250 :
3260 T[178]0
3270 JA[178]1
3280 [161]B$:[139]B$[178]""[167]3280
3290 [139]B$[178][199](13)[167]3360
3300 [139]B$[179]"0"[176]B$[177]"9"[167]3280
3310 [153]B$;
3320 T[178]T[172]JA[170][197](B$)
3330 [139]T[178]21[176]T[170]I[178]NF[170]1[167]ER[178]2:[142]
3340 [139]T[177]20[176]T[170]I[177]NF[167]ER[178]0:[142]
3350 JA[178]JA[172]10:[137]3280
3360 [139]T[179]1[167]ER[178]0
3370 [142]
3380 :
3390 :
3400 [143] PRINT OUT DIRECTORY
3410 :
3420 [153]"LOAD"[163]12)"PRINT DIRECTORY"
3430 [153][163]7)"TOTOTOTOTOTO"
3440 [153]" PRESS RETURNWAIT WHEN PRINTER IS READY"
3450 [161]B$:[139]B$[179][177][199](13)[167]3450
3460 [153]" INPUT DISK LABEL OR TITLE"
3470 [153][163]20)"(MAX 32 CHARS)"
3480 [133]DT$
3490 [139][195](DT$)[177]32[167][153]" TOO LONGPOKEONONON":[137]3480
3500 [139][195](DT$)[178]0[167][153]"ONON":[137]3480
3510 [153]" INPUT DESCRIPTION OR COMMENTS, IF ANY"
3520 [153][163]20)"(MAX 65 CHARS)"
3530 DD$[178]"":[133]DD$
3540 [139][195](DD$)[179]66[167]3570
3550 [153]" TOO LONGPOKEONONONON"
3560 [137]3530
3570 [159]4,4,SG
3580 [152]4,PC$(1)PC$(2):[160]4
3590 UC[178]0:[139]([194](53272)[175]2)[178]0[167]UC[178]1
3600 [139]UC[178]1[167][159]4,4,SU:[137]3620
3610 [159]4,4,SL
3620 [152]4,CR$CR$CR$CR$CR$CR$CR$PC$(3)DT$CR$DD$
3630 [152]4,"INTERNAL DISKNAME(ID):";:[160]4
3640 [139]UC[178]1[167][159]4,4,SU:[137]3660
3650 [159]4,4,SL
3660 C$[178]DN$:[141]3970
3670 [152]4,C$"("ID$")"CR$:[160]4
3680 P[178]1:I[178]1:IS[178]13
3690 [139]I[177]NF[167]3900
3700 [159]4,4,SU
3710 [152]4," #    FILENAME                SIZE TYPE   TRACK SECT"
3720 [160]4
3730 [139]UC[178]1[167][159]4,4,SU:[137]3750
3740 [159]4,4,SL
3750 [129]J[178]IS[164]58
3760 [139]J[178]IS[167][152]4:J[178]J[170]1:[137]3780
3770 [139]I[171][181]((I[171]1)[173]5)[172]5[178]1[167][152]4:J[178]J[170]1
3780 A$[178]EN$(P(I))
3790 B$[178][200]([196](I)[170]SS$,6)
3800 C$[178][202](A$,4,16):[141]3970
3810 B$[178]B$[170][200](C$[170]SS$,23)
3820 SZ[178]256[172][198]([201](A$,1))[170][198]([202](A$,29,1))
3830 B$[178]B$[170][200]([196](SZ)[170]SS$,6)
3840 TP[178][198]([200](A$,1)):[141]3120:B$[178]B$[170]TP$[170]SP$[170]SP$
3850 B$[178]B$[170][200]([196]([198]([202](A$,2,1)))[170]SS$,6)
3860 B$[178]B$[170][196]([198]([202](A$,3,1)))[170]SS$
3870 [152]4,B$
3880 I[178]I[170]1:[139]I[177]NF[167]J[178]59
3890 [130]J
3900 [139]I[177]NF[167][152]4,CR$BF"BLOCKS FREE"FF$;:[160]4:[137]370
3910 P[178]P[170]1:IS[178]9
3920 [152]4,FF$CR$CR$CR$CR$CR$CR$CR$DT$;
3930 [152]4,"                                             PAGE"P;CR$
3940 [160]4:[137]3700
3950 :
3960 [143] CHANGE ASC(160) TO (32)
3970 CL[178][195](C$)
3980 [129]IA[178]1[164]CL
3990 [139][202](C$,IA,1)[179][177][199](160)[167]4030
4000 C$[178][200](C$,IA[171]1):[139]CL[177]16[167]CL[178]IA[171]1:[137]4030
4010 C$[178]C$[170]SS$[170]SS$[170]SS$
4020 C$[178][200](C$,CL)
4030 [130]IA
4040 [142]
4050 :
4060 :
4070 [143] ADD DUMMY ENTRY
4080 :
4090 I[178]0
4100 [141]2910
4110 [153]"ADD DUMMY? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
4120 [161]B$:[139]B$[178]""[167]4120
4130 [139]B$[178]"Y"[167]4170
4140 [139]B$[179][177]"N"[167]4120
4150 [139]I[170]20[177]NF[167]810
4160 I[178]I[170]15:[137]4100
4170 [153]"    WHERE? ";:ER[178]1:[141]3260:[139]ER[178]0[167]4100
4180 F[178]T[170]I
4190 [129]IA[178]NF[164]F[169][171]1:P(IA[170]1)[178]P(IA):[130]IA
4200 NF[178]NF[170]1
4210 P(F)[178]NF
4220 EN$(P(F))[178][200]([199](131)[170][199](18)[170][199](0)[170]"----------------"[170]NL$,30)
4230 [137]4100
4240 :
4250 :
4260 [143] EDIT HEADER AND DISK ID
4270 :
4280 [153]"LOAD"[163]8)"EDIT HEADER AND DISK ID"
4290 [153]" DISKNAME:"DN$""
4300 [141]4420:[139]B$[178]"N"[167][137]4350
4310 [153]" ENTER NEW NAME (MAX 18 CHARS)"
4320 A$[178]"":[133]A$:[153]
4330 [139][195](A$)[177]18[167][153]" TOO LONGONONONPOKE":[137]4320
4340 [141]4480:[139]B$[178]"Y"[167]DN$[178][200](A$[170]SH$,18)
4350 [153]" ID:"ID$""
4360 [141]4420:[139]B$[178]"N"[167][137]370
4370 [153]" ENTER NEW ID (2 CHARS)"
4380 [133]A$:[153]
4390 [139][195](A$)[179][177]2[167][153]" MUST BE 2 CHARSONONONPOKE":[137]4380
4400 [141]4480:[139]B$[178]"Y"[167]ID$[178]A$
4410 [137]370
4420 [153][163]11)"ONTO TO"
4430 [153]" CHANGES? (YWAIT/NWAIT)"
4440 [161]B$:[139]B$[178]""[167]4440
4450 [139]B$[178]"Y"[167][142]
4460 [139]B$[178]"N"[167][142]
4470 [137]4440
4480 [153][163]16)"ONTO TO"
4490 [153]" ARE YOU SURE? (YWAIT/NWAIT)"
4500 [137]4440
4510 :
4520 :
4530 [143] SET UP MENU PAGE
4540 :
4550 [153]"LOAD"[163]7)"DIRECTORY SCRUNCH AND SORT"
4560 [153][163]16)"CHOICE?":[142]
4570 :
4580 :
4590 [143] CHANGE ENTRY NAME
4600 :
4610 I[178]0
4620 [141]2910
4630 [153]"CHANGES? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
4640 [161]B$:[139]B$[178]""[167]4640
4650 [139]B$[178]"Y"[167]4730
4660 [139]B$[179][177]"N"[167]4640
4670 [139]I[170]20[177][178]NF[167]810
4680 I[178]I[170]15:[137]4620
4690 :
4700 :
4710 [143] CHANGES
4720 :
4730 [153]"    NO.? ";
4740 ER[178]1
4750 [141]3260:[139]ER[179][177]1[167]4620
4760 F[178]T[170]I:[153]
4770 NM$[178]"":[133]"NAME";NM$
4780 [139][195](NM$)[177]16[167][153][163]27)"ONONTOO LONGPOKE":[137]4770
4790 NM$[178][200]((NM$[170]SH$),16)
4800 EN$(P(F))[178][200](EN$(P(F)),3)[170]NM$[170][201](EN$(P(F)),11)
4810 [137]4620
4820 :
4830 :
4840 [143] DELETE ENTRY
4850 :
4860 I[178]0
4870 [141]2910
4880 [153]"DELETES? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
4890 [161]B$:[139]B$[178]""[167]4890
4900 [139]B$[178]"Y"[167]4980
4910 [139]B$[179][177]"N"[167]4890
4920 [139]I[170]20[177]NF[167]810
4930 I[178]I[170]15:[137]4870
4940 :
4950 :
4960 [143] DELETE
4970 :
4980 [153]"    NO.? ";
4990 ER[178]1
5000 [141]3260:[139]ER[179][177]1[167]4870
5010 F[178]T[170]I:SC[178]1
5020 EN$(P(F))[178][199](0)[170][201](EN$(P(F)),29)
5030 [137]4870
5040 :
5050 :
5060 [143] VIEW DIRECTORY
5070 :
5080 I[178]0
5090 [141]2910
5100 [153]"TOTOTOTOTOTO":[153]"RETURNWAIT TO CONTINUE";
5110 [161]B$:[139]B$[179][177][199](13)[167]5110
5120 [139]I[170]20[177][178]NF[167][142]
5130 I[178]I[170]15:[137]5090
5140 [131]162,2,32,198,255,160,0,32,207,255,145,254,200,208,248,96
5150 [131]1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18,DEL,SEQ,PRG,USR,REL